0 REM BIT TWIDDLERS (SEPT 4/84)       :
1 :
2 REM 3 STATEMENTS, 0 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 12
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM S/SET       BSE      2698    009
8 REM S/CLEAR     BCLR     2708    010
9 REM S/FLIP      FLI      2720    011
10 :
11 REM U/BPREP (2730/012)
12 :
13 REM ================================
14 :
103 .ASC "SE[212]CLEA[210]FLI[208]"
1103 .WORD BSE-1,BCLR-1,FLI-1
2698 BSE JSR BPREP 
2700 ORA ($14),Y   
2702 STA ($14),Y   
2704 RTS
2706 ;
2708 BCLR JSR BPREP 
2710 EOR #$FF       
2712 AND ($14),Y    
2714 STA ($14),Y    
2716 RTS
2718 ;
2720 FLI JSR BPREP  
2722 EOR ($14),Y    
2724 STA ($14),Y    
2726 RTS
2728 ;
2730 BPREP JSR $B7EB 
2732 TXA             
2734 LDY #0          
2736 RTS
2738 ;